home *** CD-ROM | disk | FTP | other *** search
/ SOHO - Exploring the Sun - 2003 Update / SOHO - Exploring the Sun - 2003 Update.iso / pc / data / main.dcr / buttons_36.ls < prev    next >
Encoding:
Text File  |  2003-02-25  |  632 b   |  29 lines
  1. on prepareFrame
  2.   global JumpAmount, nappi_sprite
  3.   ShowAllSprites()
  4.   ClrCursorS()
  5.   defaultCursor()
  6.   set the directToStage of member "sml_sun" to 0
  7.   set f to 10
  8.   repeat while f < 87
  9.     KasiCursor(f)
  10.     set f to f + 1
  11.   end repeat
  12.   set the locV of sprite nappi_sprite to 500
  13.   if JumpAmount > 0 then
  14.     if the visible of sprite 104 <> 1 then
  15.       set the visible of sprite 104 to 1
  16.     end if
  17.   else
  18.     if the visible of sprite 104 <> 0 then
  19.       set the visible of sprite 104 to 0
  20.     end if
  21.   end if
  22. end
  23.  
  24. on exitFrame
  25.   global jump_back
  26.   set jump_back to the frame
  27.   set the directToStage of member "sml_sun" to 1
  28. end
  29.